Attribute VB_Name = "PublicModule"
Public Mserverdmt As String
Public Nspacedmt As String
Public TempPath As String
Public GPrint, GPrintType As String


Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


Public Function GetCurrMonth(Currdate As Date)
Dim Ls_date, Ls_year, Ls_month As String
Dim Li_year, Li_month, i As Integer
Dim Ld_month As Date
   ' Ls_year = Mid(Format$(Currdate, "YYYY-MM-dd"), 1, 4)
    Ls_month = Mid(Format$(Currdate, "YYYY-MM-dd"), 1, 7)
    
    Ls_date = Ls_month + "-01"
    Ld_month = Format$(Ls_date, "YYYY-MM-DD")
    
    GetCurrMonth = Ld_month
 
    
End Function

Sub Connected(vm1)
Dim Tline, INpos1, INpos2, INpos3 As String
Dim TextLine
Dim temp As String, ReturnLength As Integer
    vm1.MServer = Mserverdmt
    vm1.NameSpace = Nspacedmt
  
        
 End Sub
Sub DisConnected(vm1)
    vm1.MServer = "0.0.0.0"
    vm1.NameSpace = ""
End Sub

Function VbPrnt(ByVal X As Integer, ByVal Y As Integer, ByVal font As Single, ByVal txt As String, ByVal Bold As Boolean)
    Printer.CurrentX = X
    Printer.CurrentY = Y
    Printer.FontBold = Bold
    Printer.FontSize = font
    Printer.Print txt
End Function
